From: Juri Linkov <juri@jurta.org>
Date: Sat, 6 Oct 2007 22:19:12 +0000 (+0000)
Subject: (delete-selection-pre-hook): Check if mouse-region-match is fbound
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~26630
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=614a773aa3754defa69dec18cd590f77b94c079e;p=emacs.git

(delete-selection-pre-hook): Check if mouse-region-match is fbound
to not fail on mouseless tty.
---

diff --git a/lisp/delsel.el b/lisp/delsel.el
index b4ae7965a3f..82593985650 100644
--- a/lisp/delsel.el
+++ b/lisp/delsel.el
@@ -93,6 +93,7 @@ any selection."
 		 ;; That would make yank a no-op.
 		 (when (and (string= (buffer-substring-no-properties (point) (mark))
 				     (car kill-ring))
+			    (fboundp 'mouse-region-match)
 			    (mouse-region-match))
 		   (current-kill 1))
 		 (delete-active-region))